home *** CD-ROM | disk | FTP | other *** search
- !
- ! Copyright (c) 1995
- ! by CompuServe Incorporated, Columbus, Ohio
- !
- ! The information in this software is subject to change without
- ! notice and should not be construed as a commitment by CompuServe.
- !
- ! MERCURY:
- ! Connect to Mercury
- ! Success: returns %Success
- ! Failure: saves error msg in %FailureMsg and returns %Failure
- !
- !+V
- ! "3.8"
- !-V
-
- show "Connecting to Mercury 5000";
- Tries = 5;
- on cancel goto Return_Cancel;
- wait until 15;
- send %CR & %CR & %CR & %CR;
-
- Wait_Mercury:
-
- if Tries = 0 goto Mercury_Failure;
- Tries = Tries - 1;
-
- wait
-
- ! Mercury 5000 Commands
-
- "SERVICE" goto Assign_Mercury_NUA1,
- "FAILURE" goto Wait_Mercury,
-
- ! Mercury DAP commands
-
- "01" goto Assign_Mercury_NUA2,
- "82" goto Wait_Mercury,
- "CLEARED" goto Mercury_Failure,
- "Host Name:" goto Return_Success
- until 80;
-
- send %CR;
- goto Wait_Mercury;
-
- Assign_Mercury_NUA1:
- Mercury_NUA = ",,UKCNS";
- goto Send_Mercury_NUA;
-
- Assign_Mercury_NUA2:
- Mercury_NUA = "nhost.seraccess-.ukcns";
-
- Send_Mercury_NUA:
- show "Sending Mercury User Address...";
- send Mercury_NUA & %CR;
- goto Wait_Mercury;
-
- Mercury_Failure:
- define %FailureMsg = "Mercury not responding";
- exit %Failure;
-
- Return_Cancel:
- exit %Cancel;
-
- Return_Success:
- send %CR;
- exit %Success;
-